home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / examples / doc / widget1.pro < prev    next >
Text File  |  1997-07-08  |  308b  |  14 lines
  1. ; This program is used as an example in the "Widgets"
  2. ; chapter of the _Using IDL_ manual.
  3. ;
  4. PRO widget1_event, ev
  5. IF ev.select THEN WIDGET_CONTROL, ev.top, /DESTROY
  6. END
  7.  
  8. PRO widget1
  9. base = WIDGET_BASE()
  10. button = WIDGET_BUTTON(base, value='Done')
  11. WIDGET_CONTROL, base, /REALIZE
  12. XMANAGER, 'Widget1', base
  13. END
  14.